home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
bbs
/
maxfreq2.zip
/
MAXFREQ.MEC
< prev
next >
Wrap
INI File
|
1996-06-11
|
12KB
|
303 lines
[comment
MAXFREQ v2.00
Offline File Request Handler for Maximus
(c) 1996 by John Medland
PHOTO 334 BBS! Toronto Canada (416) 539-9591 1:250/840
]
[LT s][goto r2]
[cls]
[red on grey][colour] [endcolour] MAXFREQ v2.0 [yellow on grey dim] Request Handler [white]
[ifexist]maxfreq\requests.bbs [goto L0]
[grey]Found [white]0 [grey]requests.
[/L0][ifexist]maxfreq\requests.bbs [nocolour lf endcolour][locate 2 49][black on grey][colour] [endcolour] Requests [white][nocolour lf endcolour]
[ifexist]maxfreq\request.lst [down link]maxfreq\request.lst
[colour][locate 2 1][red on grey] MAXFREQ v2.0 [yellow on grey dim] Request Handler [white]
[endcolour][ifexist]maxfreq\requests.bbs [locate 4 1] [yellow]R[nocolour])[endcolour][grey]ead requests
[yellow]S[nocolour])[endcolour][grey]etup program
[yellow]M[nocolour])[endcolour][grey]ake request
[yellow]Q[nocolour])[endcolour][grey]uit
[white]Select: [menu]|qmvsr
[choice]Q[cls quit]
[choice]m[goto r2]
[choice]S[goto setup]
[ifexist]maxfreq\requests.bbs [goto L1]
[cls quit]
[/L1][cls][lightgrey]──────────────────────────────────────────────────────────────────────────────
[yellow][moreoff][link]maxfreq\requests.bbs
[ifexist]maxfreq\callkill.bat [goto L3]
[/L4][colour][UP lightgrey]══════════════════════════════════════════════════════════════════════════════
[endcolour]
[yellow]A[gray]gain, [yellow]D[gray]elete, [yellow]Q[gray]uit? [white][[a,d,Q] [menu]|qad
[choice]q[goto L2]
[choice]|[goto L2]
[choice]a[cls][goto L1]
[grey]Delete all requests? [white][[Y,n] [menu]yn|
[choice]n[cls quit]
[delete]maxfreq\requests.bbs
[delete]maxfreq\request.lst
[white]
Done![pause][cls][quit]
[/L2][cls][quit]
[/L3][colour][up lightgrey]══════════════════════════════════════════════════════════════════════════════
[endcolour]
[grey]Kill Tagged Requests? [white][[Y,n] [menu]Yn|
[choice]n[delete]\max\maxfreq\callkill.bat
[choice]n
[delete]maxfreq\delreq.$$$
[choice]n[white]Clearing tags...[pause] Done![pause][QUIT]
[white]Killing tagged requests..[blink].[steady] [dos]maxfreq\callkill.bat
[white][bs bs]. Done![pause]
[delete]maxfreq\callkill.bat
[delete]maxfreq\delreq.$$$
[ifexist]maxfreq\requests.bbs [goto still]
[DELETE]MAXFREQ\REQCHECK.BBS
[white]No more requests![pause][cls][QUIT]
[/still][up][cleol][up][cleol][up][cleol][up cleol][goto L4]
[/r2][cls]
[red on grey][colour] [endcolour] MAXFREQ v2.0 [yellow on grey dim] Offline File Request [white]
[delete]maxfreq\reqcheck
[ifexist]maxfreq\requests.bbs [nocolour lf endcolour][locate 2 49][black on grey][colour] [endcolour] Requests [white][nocolour lf endcolour]
[ifexist]maxfreq\request.lst [down link]maxfreq\request.lst
[ifexist]maxfreq\requests.bbs [dos]type maxfreq\requests.bbs |find "%n[endcolour]" > maxfreq\reqcheck.bbs
[link]maxfreq\reqcheck.bbs
[colour][locate 2 1][red on grey] MAXFREQ v2.0 [yellow on grey dim] Offline File Request [white]
[endcolour][locate 4 1][nocolour] [endcolour][white]Complete file NAME only, NO wildcards!
[yellow]FILE: [black on grey] [bs bs bs bs bs bs bs bs bs bs bs bs][readln]
[white][ifentered] [cls quit]
[open]maxfreq\reqtemp
[write][COLOUR][black]~%J`*** FIRST LINE of REQUEST ******************************************[endcolor][delete]maxfreq\requser.bbs
[write][colour][black]~%J`[endcolor][key_poke]%J
[write][colour][black]~%J`[endcolor][readln]
[write][colour][black]~%J`[endcolour][white]
[write][lt a][ckoff][locate 4 1][yellow]Sorry, limit is [RED][BLINK]ONE[Yellow][STEADY] request per caller.[locate 6 1][pause][white][enter][colour][black]~%J`%n[endcolour][CLS][EXIT]
[delete]current.bat
[open]current.bat
[write]@echo off
[write]echo [up up][repeat] [51][lightgrey]%%3 %%4[colour][black]~%J`[endcolour]>>maxfreq\reqtemp
[write]echo [up lightgreen]%J[WHITE][colour][black]~%J`[endcolour]>>maxfreq\reqtemp
[open]$tmp2$$.bat
[write]@echo off
[write]echo.|date|find "Current">$tmp3$$.bat
[write]$tmp3$$
[open]nul:
[dos]$tmp2$$
[delete]$tmp2$$.bat
[delete]$tmp3$$.bat
[delete]current.bat
[open]maxfreq\reqtemp
[write][colour][black]~%J`[endcolour][white]
[write][white]Requested by: [grey]%n [white]Down: [grey]%ik [white]Up: [grey]%Ik[open]maxfreq\requser.bbs [acs hidden][colour][black]~%J`[endcolour]
[gray]Send this request? [white][[Y,n] [menu]Yn|
[choice]n[goto r1]
[write][write][colour][black]~%J`[endcolor][key_poke]~%n
[write][write][colour][black]~%J`[endcolor][choice]u[menu_cmd user_editor]
[delete]current.bat
[open]current.bat
[write]@echo off
[write]echo [write][up repeat] [51][lightgrey]%%3 %%4[colour][black]~%J`[endcolour]>>maxfreq\reqtemp
[write]echo [write][up lightgreen]%J [WHITE][colour][black]~%J`[endcolour]>>maxfreq\reqtemp
[open]$tmp2$$.bat
[write]@echo off
[write]echo.|date|find "Current">$tmp3$$.bat
[write]$tmp3$$
[open]nul:
[dos]$tmp2$$
[delete]$tmp2$$.bat
[delete]$tmp3$$.bat
[delete]current.bat
[open]maxfreq\reqtemp
[write][write][colour][black]~%J`[endcolour]
[write][write][white]Requested by: [grey]%n [white]Down: [grey]%ik [white]Up: [grey]%Ik[acs hidden][colour][black]~%J`[endcolor]
[write][open]nul: [acs hidden][colour][black]~%J`[endcolor]
[write][link]maxfreq\reqadd [acs hidden][colour][black]~%J`[endcolor]
[write][choice]q[quit][colour][black]~%J`[endcolor]
[write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][open]maxfreq\callkill.bat
[write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][write]@echo off
[write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][write]call maxfreq\reqkill %J
[write][ifexist]maxfreq\DELREQ.$$$ [colour][black]~%J`[endcolor][open]nul: [up]
[write][choice]M[colour][black]~%J`[endcolor][link]maxfreq\reqarea.bbs
[write][choice]M[colour][black]~%J`[endcolor][up dos]maxfreq\reqmsg.bat %S %s %J %%J %n
[write][choice]M[up colour][black]~%J`[endcolor][nocolour]──────────────────────────────────────────────────────────────────────────────[endcolour]
[write][delete]maxfreq\requser.bbs [COLOUR][black]~%J`*** LAST LINE of REQUEST ***[up ENDCOLOUR]
[OPEN]NUL:
[log]RREQUESTED OFFLINE FILE: %J
[white]Sending request to [sysop_name].
[open]REQ$ADD.BAT
[write]@ECHO OFF
[IFEXIST]maxfreq\REQUEST.LST [write]type maxfreq\request.lst | find "[green]" > maxfreq\REQUEST.$$$
[IFEXIST]maxfreq\REQUEST.LST [write]ECHO [colour][repeat] [48][endcolour] [green]%J[colour][black]~%J`[endcolour][white]>> maxfreq\request.$$$
[IFEXIST]maxfreq\REQUEST.LST [write]COPY maxfreq\reqUEST.$$$ maxfreq\reqUest.LST >NUL
[IFEXIST]maxfreq\REQUEST.LST [goto haverl]
[write]ECHO [colour][repeat] [48][endcolour] [green]%J[colour][black]~%J`[endcolour][white]>> maxfreq\request.lst
[/haverl]
[write]type maxfreq\reqtemp | FIND "[black]" >> maxfreq\requests.bbs
[open]NUL:
[dos]REQ$ADD.BAT
[delete]req$ADD.BAT
[delete]maxfreq\reqtemp
[ifexist]maxfreq\reqUEST.$$$ [delete]maxfreq\reqUEST.$$$
[white]Done![pause]
[/r0]
[lt a][CLS][quit]
[grey]Request another file? [white][[y,N] [menu]Yn|
[choice]Y[goto r2]
[top]
[/r1]
[open]nul:
[delete]maxfreq\reqtemp
[white]Request deleted.
[goto r0]
[/setup]
[yellow]T[nocolour])[endcolour][grey]ext editor
[yellow]M[nocolour])[endcolour][grey]essage area
[yellow]L[nocolour])[endcolour][grey]ocating disks
[yellow]Q[nocolour])[endcolour][grey]uit
[white]Select: [menu]tlmq|
[choice]L[goto selist]
[choice]T[goto seted]
[choice]M[goto setmes]
[choice]Q[top]
[choice]|[top]
[/selist cls]
[grey]To find the backup disk for each request:
[yellow]R[nocolour])[endcolour][grey]un a program
[yellow]S[nocolour])[endcolour][grey]earch a text file
[yellow]Q[nocolour])[endcolour][grey]uit
[white]Select: [menu]SRQ|
[choice]S[goto slist]
[choice]R[goto rlist]
[choice]Q[top]
[choice]|[top]
[/slist][white]PATH\NAME [grey]of storage list?[white]: [readln]
[ifentered] [goto selist]
[ifexist]%J [goto lfound]
File not found![pause pause]
[moreoff up cleol up cleol up cleol goto slist]
[/lfound][delete]